home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / umich / telecomm / flashdoc.lzh / DATE.DO < prev    next >
Encoding:
Text File  |  1992-02-21  |  5.6 KB  |  329 lines
  1. >** - File loading - PLEASE WAIT...|
  2.  
  3. >**
  4.  
  5. date.do V. 3.2.0 - 02/21/92|
  6.  
  7.  
  8. Copyright (C) 1992 by Al Fasoldt
  9.  
  10.  
  11. What this does:
  12.  
  13. DATE.DO runs TD.PRG and uses the data file that TD creates to 
  14. read the date and time. It then sets certain variables so that 
  15. the date and time can be used in scripts. TD.PRG must be in the 
  16. same folder that DATE.DO runs from. (TD.PRG was supplied with 
  17. this script.)
  18.  
  19. This script will work properly up to the last day in the year 
  20. 2000.
  21.  
  22. You do not need to have a hardware clock in your ST to use this 
  23. script. As long as your computer's clock is set properly, 
  24. DATE.DO will function OK.
  25.  
  26. This version also uses a variable for the location of DO files. 
  27. This variable, Q, is set by another script that runs prior to 
  28. DATE.DO. You can remove the line that uses a "cd" command and 
  29. the variable Q if you wish.
  30.  
  31. |
  32.  
  33. >**
  34.  
  35. Here are the variable assignments:
  36.  
  37. A - Full date in U.S. form.
  38. B - Full date in Canadian form.
  39.     (examples: February 15, 1992; 15 February, 1992).
  40. D - Day of the month in two digits.
  41. M - Month spelled in full.
  42. O - Month in two digits.
  43. W - Year in two digits.
  44. X - Year in four digits.
  45. Y - Time the script was executed.
  46.  
  47. There are dozens of uses for these variables. The ones I use the 
  48. most are D, as a file extender for daily telecomm text files 
  49. that I automatically save (as "email.$D" and so on) and W, for 
  50. making new backups each time the month changes.
  51.  
  52. You can also simply use variable A to insert the full date in an 
  53. automated script, using the "log" command ("log $A") and so 
  54. forth.
  55.  
  56. |
  57.  
  58. >** Beginning of script.|
  59. >$Y|
  60. >$Z|
  61. >ty  |
  62. >** may want to remove the next line.|
  63. >cd $Q|
  64. >**|
  65. >op td.prg|
  66. >if ~op jmp NoData|
  67. >ex td.prg|
  68. >pa 1|
  69. >op td.dat|
  70. >inp $Y|
  71. >inp $Z|
  72. >ty $Y|
  73. >ty $Z|
  74. >ifi $Z "1991" jmp 91|
  75. >ifi $Z "1992" jmp 92|
  76. >ifi $Z "1993" jmp 93|
  77. >ifi $Z "1994" jmp 94|
  78. >ifi $Z "1995" jmp 95|
  79. >ifi $Z "1996" jmp 96|
  80. >ifi $Z "1997" jmp 97|
  81. >ifi $Z "1982" jmp 98|
  82. >ifi $Z "1999" jmp 99|
  83. >ifi $Z "2000" jmp 00|
  84. >ifi $Z "2001" jmp 01|
  85. >jmp NoYear|
  86. >L: 91|
  87. >$X 1991|
  88. >$W 91|
  89. >jmp month|
  90. >L: 92|
  91. >$X 1992|
  92. >$W 92|
  93. >jmp month|
  94. >L: 93|
  95. >$X 1993|
  96. >$W 93|
  97. >jmp month|
  98. >L: 94|
  99. >$X 1994|
  100. >$W 94|
  101. >jmp month|
  102. >L: 95|
  103. >$X 1995|
  104. >$W 95|
  105. >jmp month|
  106. >L: 96|
  107. >$X 1996|
  108. >$W 96|
  109. >jmp month|
  110. >L: 97|
  111. >$X 1997|
  112. >$W 97|
  113. >jmp month|
  114. >L: 98|
  115. >$X 1998|
  116. >$W 98|
  117. >jmp month|
  118. >L: 99|
  119. >$X 1999|
  120. >$W 99|
  121. >jmp month|
  122. >L: 00|
  123. >$X 2000|
  124. >$W 00|
  125. >jmp month|
  126. >L: 01|
  127. >$X 2001|
  128. >jmp month|
  129. >L: month|
  130. >ifi $Z "01_" jmp jan|
  131. >ifi $Z "02_" jmp feb|
  132. >ifi $Z "03_" jmp mar|
  133. >ifi $Z "04_" jmp apr|
  134. >ifi $Z "05_" jmp may|
  135. >ifi $Z "06_" jmp jun|
  136. >ifi $Z "07_" jmp jul|
  137. >ifi $Z "08_" jmp aug|
  138. >ifi $Z "09_" jmp sep|
  139. >ifi $Z "10_" jmp oct|
  140. >ifi $Z "11_" jmp nov|
  141. >ifi $Z "12_" jmp dec|
  142. >jmp NoData|
  143. >L: jan|
  144. >$M January|
  145. >jmp day|
  146. >L: feb|
  147. >$M February|
  148. >jmp day|
  149. >L: mar|
  150. >$M March|
  151. >jmp day|
  152. >L: apr|
  153. >$M April|
  154. >jmp day|
  155. >L: may|
  156. >$M May|
  157. >jmp day|
  158. >L: jun|
  159. >$M June|
  160. >jmp day|
  161. >L: jul|
  162. >$M July|
  163. >jmp day|
  164. >L: aug|
  165. >$M August|
  166. >jmp day|
  167. >L: sep|
  168. >$M September|
  169. >jmp day|
  170. >L: oct|
  171. >$M October|
  172. >jmp day|
  173. >L: nov|
  174. >$M November|
  175. >jmp day|
  176. >L: dec|
  177. >$M December|
  178. >L: day|
  179. >ifi $Z "_01 " jmp D01|
  180. >ifi $Z "_02 " jmp D02|
  181. >ifi $Z "_03 " jmp D03|
  182. >ifi $Z "_04 " jmp D04|
  183. >ifi $Z "_05 " jmp D05|
  184. >ifi $Z "_06 " jmp D06|
  185. >ifi $Z "_07 " jmp D07|
  186. >ifi $Z "_08 " jmp D08|
  187. >ifi $Z "_09 " jmp D09|
  188. >ifi $Z "_10 " jmp D10|
  189. >ifi $Z "_11 " jmp D11|
  190. >ifi $Z "_12 " jmp D12|
  191. >ifi $Z "_13 " jmp D13|
  192. >ifi $Z "_14 " jmp D14|
  193. >ifi $Z "_15 " jmp D15|
  194. >ifi $Z "_16 " jmp D16|
  195. >ifi $Z "_17 " jmp D17|
  196. >ifi $Z "_18 " jmp D18|
  197. >ifi $Z "_19 " jmp D19|
  198. >ifi $Z "_20 " jmp D20|
  199. >ifi $Z "_21 " jmp D21|
  200. >ifi $Z "_22 " jmp D22|
  201. >ifi $Z "_23 " jmp D23|
  202. >ifi $Z "_24 " jmp D24|
  203. >ifi $Z "_25 " jmp D25|
  204. >ifi $Z "_26 " jmp D26|
  205. >ifi $Z "_27 " jmp D27|
  206. >ifi $Z "_28 " jmp D28|
  207. >ifi $Z "_29 " jmp D29|
  208. >ifi $Z "_30 " jmp D30|
  209. >ifi $Z "_31 " jmp D31|
  210. >jmp NoData|
  211. >L: D01|
  212. >$D 1|
  213. >jmp combine_vars|
  214. >L: D02|
  215. >$D 2|
  216. >jmp combine_vars|
  217. >L: D03|
  218. >$D 3|
  219. >jmp combine_vars|
  220. >L: D04|
  221. >$D 4|
  222. >jmp combine_vars|
  223. >L: D05|
  224. >$D 5|
  225. >jmp combine_vars|
  226. >L: D06|
  227. >$D 6|
  228. >jmp combine_vars|
  229. >L: D07|
  230. >$D 7|
  231. >jmp combine_vars|
  232. >L: D08|
  233. >$D 8|
  234. >jmp combine_vars|
  235. >L: D09|
  236. >$D 9|
  237. >jmp combine_vars|
  238. >L: D10|
  239. >$D 10|
  240. >jmp combine_vars|
  241. >L: D11|
  242. >$D 11|
  243. >jmp combine_vars|
  244. >L: D12|
  245. >$D 12|
  246. >jmp combine_vars|
  247. >L: D13|
  248. >$D 13|
  249. >jmp combine_vars|
  250. >L: D14|
  251. >$D 14|
  252. >jmp combine_vars|
  253. >L: D15|
  254. >$D 15|
  255. >jmp combine_vars|
  256. >L: D16|
  257. >$D 16|
  258. >jmp combine_vars|
  259. >L: D17|
  260. >$D 17|
  261. >jmp combine_vars|
  262. >L: D18|
  263. >$D 18|
  264. >jmp combine_vars|
  265. >L: D19|
  266. >$D 19|
  267. >jmp combine_vars|
  268. >L: D20|
  269. >$D 20|
  270. >jmp combine_vars|
  271. >L: D21|
  272. >$D 21|
  273. >jmp combine_vars|
  274. >L: D22|
  275. >$D 22|
  276. >jmp combine_vars|
  277. >L: D23|
  278. >$D 23|
  279. >jmp combine_vars|
  280. >L: D24|
  281. >$D 24|
  282. >jmp combine_vars|
  283. >L: D25|
  284. >$D 25|
  285. >jmp combine_vars|
  286. >L: D26|
  287. >$D 26|
  288. >jmp combine_vars|
  289. >L: D27|
  290. >$D 27|
  291. >jmp combine_vars|
  292. >L: D28|
  293. >$D 28|
  294. >jmp combine_vars|
  295. >L: D29|
  296. >$D 29|
  297. >jmp combine_vars|
  298. >L: D30|
  299. >$D 30|
  300. >jmp combine_vars|
  301. >L: D31|
  302. >$D 31|
  303. >L: combine_vars|
  304. >L: US_date|
  305. >$A "$M $D, $X"|
  306. >L: euro_date|
  307. >$B "$D $M, $X"|
  308. >type  |
  309. >type|
  310. >type|
  311. >type Today is $A.|
  312. >type|
  313. >type The time: $Y.||
  314. >type|
  315. >type|
  316. >type Have a nice day!|
  317. >type|
  318. >$Z|
  319. >end|
  320. >L: NoData|
  321. >ty "|Improper data file! Check to see if TD.PRG is on default path.|"|
  322. >ty "|Program terminated.|"|
  323. >end|
  324. >L: NoYear|
  325. >ty "If you are running this in 2002 or later,|"|
  326. >ty "please use an updated version of this script.|"|
  327. >ty "|Program terminated.|"|
  328. >end|
  329.